Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.3/Group1/istatist.exe/0/RCDATA/TFORMDRGRAF/TFORMDRGRAF.txt

Text File | 1998-07-13 | 45KB | 1,666 lines

object FormDrGraf: TFormDrGraf
  Left = -1
  Top = -1
  Width = 645
  Height = 454
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Doktorlara �li�kin Re�ete Bilgileri ve Grafikleri'
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Scaled = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object LabelTAR: TLabel
    Left = -1
    Top = -1
    Width = 66
    Height = 14
    Caption = 'Tarih Aral���'
  end
  object RadioGrSIR: TRadioGroup
    Left = 127
    Top = -1
    Width = 394
    Height = 37
    Caption = 'Doktor S�ralama Kriteri: En B�y�k'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Miktarda �la� Yazandan �tibaren'
      'Tutarda �la� Yazandan �tibaren')
    TabOrder = 2
  end
  object BitBtn2: TBitBtn
    Left = 544
    Top = 7
    Width = 68
    Height = 25
    Caption = '&Tabloyu A�'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object MaskEditSON: TMaskEdit
    Left = 62
    Top = 14
    Width = 63
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 1
    Text = '01.01.1998'
    OnExit = MaskEditBASExit
  end
  object MaskEditBAS: TMaskEdit
    Left = 0
    Top = 14
    Width = 61
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 0
    Text = '01.01.1997'
    OnExit = MaskEditBASExit
  end
  object PanelGRAF: TPanel
    Left = -2
    Top = 417
    Width = 663
    Height = 844
    BevelInner = bvLowered
    BorderWidth = 3
    Color = clNavy
    TabOrder = 6
    object ScrollBox1: TScrollBox
      Left = 5
      Top = 5
      Width = 653
      Height = 834
      Align = alClient
      Color = clGray
      ParentColor = False
      TabOrder = 0
      object Label2: TLabel
        Left = 567
        Top = 182
        Width = 63
        Height = 84
        Caption = 'Grafik Bilgisinin Yaz�laca�� Txt. Dosyas�n�n Ad�'
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Chart1: TChartFX
        Left = 0
        Top = 0
        Width = 565
        Height = 409
        TabOrder = 0
        ControlData = {
          653A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          0000000000000000000000000000000000000000000000000000000000580000
          00000054008A10000080685B00AC2A020684643702003E5A00943D5A000C0054
          0090385A000000000000000000E85D5A00D88C570034545B000C005400202637
          020000000000000000B8B0590004B662020000000024235A0050000000000054
          000000000000000000D4FC63006E7374732E706173EC41EE0272642E7090CF23
          021C7E2402EE00000088984F0208545B00000000005883570000000000000000
          0044AA600000000000480158004C000000000054008A100000C08C5700ECEE58
          000C005400EE000045543E5A0070720000000000001C043002E046130278621E
          02637A380045435A388C065A00E415C505CC6FF10400000000A0215A00300000
          00000054009A10000074425900000000000000000084845700000000003C6246
          0290385A00B8AC2402000000007CE75D00000000000000F03F000000000000F0
          3F02000400000000000000000000000000000024400000000000000000000000
          000000000000000000000000}
      end
      object BtnYUK: TBitBtn
        Left = 567
        Top = 29
        Width = 45
        Height = 45
        Caption = 'Y&ukar�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BtnYUKClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
      object BtnYAZ: TBitBtn
        Left = 567
        Top = 140
        Width = 45
        Height = 44
        Caption = '&Yaz�c�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BtnYAZClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object BtnASA: TBitBtn
        Left = 567
        Top = 84
        Width = 45
        Height = 45
        Caption = 'A&�a��'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BtnASAClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
          333333333337F3333333333333397333333333333337FF333333333333C94333
          3333333333737F333333333333C9473333333333337373F3333333333CC94433
          3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
          333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
          33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
          4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
          443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
          444377733337F333777FC33333393333374373333337333333730000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object ChartMik: TChartFX
        Left = 1
        Top = 413
        Width = 564
        Height = 409
        TabOrder = 6
        ControlData = {
          4B3A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          0000000000000000000000000000000000000000000000000000000000440000
          00000054008A10000080685B00AC2A02060000000000000000C012580010FE37
          0200000011EE0000FFB8325800EE000000CC825700287327028C4E2F02000000
          0008AAB70538000000000054000000000000000000D4FC63006E7374732E7061
          73EC41EE0210FE3702207E24028C835700F0D4E4010000000000000000842A5B
          0024000000000054008A100000C08C5700CC04300272662E6470720000C01258
          00220000008044B80528000000000054009A1000007442590074572D029C1258
          00E4EF4B02E852200228AC240200000000FC8CD104000000000000F03F000000
          000000F03F020004000000000000000000000000000000244000000000000000
          00000000000000000000000000004349}
      end
      object BtnTXT: TBitBtn
        Left = 567
        Top = 298
        Width = 45
        Height = 45
        Caption = '.txt Ya&z'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = BtnTXTClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
          C8807FF7777777777FF700000000000000007777777777777777333333333333
          33333333333333333333333333333333333333333333333333330000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object EditFile: TEdit
        Left = 566
        Top = 270
        Width = 80
        Height = 22
        TabOrder = 4
        Text = 'istDr.txt'
      end
      object BitBtn1: TBitBtn
        Left = 570
        Top = 463
        Width = 41
        Height = 45
        Caption = 'Yuka&r�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BitBtn1Click
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 1296
    Width = 665
    Height = 337
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel1'
    Color = 8454143
    TabOrder = 7
    object QRBand1: TQRBand
      Left = 6
      Top = 6
      Width = 653
      Height = 35
      Align = alTop
      BandType = rbTitle
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrCmHV
      object QRLabelBaslik: TQRLabel
        Left = 246
        Top = 15
        Width = 78
        Height = 14
        Alignment = taCenter
        Caption = 'QRLabelBaslik'
        AlignToBand = True
      end
      object QRSysData2: TQRSysData
        Left = 577
        Top = -1
        Width = 89
        Height = 17
        AlignToBand = False
        Data = qrsPageNumber
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Text = 'Sayfa '
      end
    end
    object QRBand2: TQRBand
      Left = 6
      Top = 41
      Width = 653
      Height = 43
      Align = alTop
      BandType = rbDetail
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmH
      object QRShape1: TQRShape
        Left = 2
        Top = 2
        width = 599
        Height = 37
        Shape = qrsRectangle
      end
      object QRShape5: TQRShape
        Left = 515
        Top = 2
        width = 4
        Height = 37
        Shape = qrsVertLine
      end
      object QRShape4: TQRShape
        Left = 326
        Top = 2
        width = 129
        Height = 37
        Shape = qrsRectangle
      end
      object QRShape3: TQRShape
        Left = 39
        Top = 2
        width = 212
        Height = 37
        Shape = qrsRectangle
      end
      object QRDBText1: TQRDBText
        Left = 4
        Top = 21
        Width = 32
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'SNO'
      end
      object QRDBText3: TQRDBText
        Left = 267
        Top = 21
        Width = 48
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'FARKILAC'
      end
      object QRDBText4: TQRDBText
        Left = 331
        Top = 21
        Width = 118
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'TOPTUT'
      end
      object QRDBText5: TQRDBText
        Left = 467
        Top = 21
        Width = 38
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'TOPMIK'
      end
      object QRDBText7: TQRDBText
        Left = 520
        Top = 21
        Width = 45
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'ORTMIK'
      end
      object QRLabel3: TQRLabel
        Left = 11
        Top = 3
        Width = 24
        Height = 14
        Caption = 'S.No'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel2: TQRLabel
        Left = 44
        Top = 3
        Width = 58
        Height = 14
        Caption = 'Doktor Ad�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel4: TQRLabel
        Left = 254
        Top = 3
        Width = 71
        Height = 14
        Caption = 'F.l� �la� Say�s�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel5: TQRLabel
        Left = 342
        Top = 3
        Width = 99
        Height = 14
        Caption = 'Re�ete Br�t Tutar�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel6: TQRLabel
        Left = 457
        Top = 3
        Width = 58
        Height = 14
        Caption = 'T.Kutu Mik'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel8: TQRLabel
        Left = 523
        Top = 3
        Width = 69
        Height = 14
        Caption = 'Ort.Kutu Mik.'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRDBText2: TQRDBText
        Left = 44
        Top = 21
        Width = 203
        Height = 17
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'DRKOD'
      end
      object QRShape2: TQRShape
        Left = 3
        Top = 19
        width = 596
        Height = 4
        Shape = qrsHorLine
      end
    end
    object QRGroupHeader: TQRBand
      Left = 6
      Top = 84
      Width = 653
      Height = 16
      Align = alTop
      BandType = rbGroupHeader
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmHV
      object QRLabel9: TQRLabel
        Left = 126
        Top = 2
        Width = 39
        Height = 14
        Caption = '�la� Ad�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel10: TQRLabel
        Left = 340
        Top = 2
        Width = 51
        Height = 14
        Caption = 'Kutu Mik.'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel11: TQRLabel
        Left = 428
        Top = 2
        Width = 58
        Height = 14
        Caption = 'Br�t Tutar�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel12: TQRLabel
        Left = 86
        Top = 2
        Width = 24
        Height = 14
        Caption = 'S.No'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel13: TQRLabel
        Left = 520
        Top = 2
        Width = 68
        Height = 14
        Caption = 'Ort.Kutu Mik'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object QRSubDetail: TQRBand
      Left = 6
      Top = 100
      Width = 653
      Height = 17
      Align = alTop
      BandType = rbSubDetail
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmH
      object QRSysData1: TQRSysData
        Left = 416
        Top = 1
        Width = 65
        Height = 17
        AlignToBand = False
        Data = qrsDateTime
        Text = 'D�k�m Tarihi :'
      end
      object QRDBText8: TQRDBText
        Left = 119
        Top = 1
        Width = 220
        Height = 17
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'ILACNO'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText9: TQRDBText
        Left = 348
        Top = 1
        Width = 39
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'TOPMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText10: TQRDBText
        Left = 400
        Top = 1
        Width = 94
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'TUTAR'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText11: TQRDBText
        Left = 79
        Top = 1
        Width = 33
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'SNO'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText12: TQRDBText
        Left = 523
        Top = 1
        Width = 65
        Height = 17
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'ORTMIK'
      end
    end
    object QRGroupFooter: TQRBand
      Left = 6
      Top = 117
      Width = 653
      Height = 17
      Align = alTop
      BandType = rbGroupFooter
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
    end
    object QRBand3: TQRBand
      Left = 6
      Top = 134
      Width = 653
      Height = 186
      Align = alTop
      BandType = rbSummary
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
      object QRShape6: TQRShape
        Left = 126
        Top = 16
        width = 403
        Height = 136
        Shape = qrsRectangle
      end
      object QRLabel14: TQRLabel
        Left = 176
        Top = 74
        Width = 139
        Height = 14
        Caption = 'Farkl� �la� Say�s� Toplam� :'
        AlignToBand = False
      end
      object QRLabel16: TQRLabel
        Left = 206
        Top = 111
        Width = 109
        Height = 14
        Caption = '�la�lar�n Br�t Tutar� :'
        AlignToBand = False
      end
      object QRLabel17: TQRLabel
        Left = 193
        Top = 18
        Width = 122
        Height = 14
        Caption = 'Toplam Doktor Say�s� :'
        AlignToBand = False
      end
      object QRLabel19: TQRLabel
        Left = 164
        Top = 92
        Width = 151
        Height = 14
        Caption = 'Toplam �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRDBText13: TQRDBText
        Left = 321
        Top = 19
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'DRSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText14: TQRDBText
        Left = 321
        Top = 74
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'FARKILAC'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText15: TQRDBText
        Left = 321
        Top = 93
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText16: TQRDBText
        Left = 321
        Top = 111
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPTUT'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText19: TQRDBText
        Left = 321
        Top = 127
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'ORTMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRLabel20: TQRLabel
        Left = 156
        Top = 127
        Width = 159
        Height = 14
        Caption = 'Ortalama �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRLabel23: TQRLabel
        Left = 256
        Top = 0
        Width = 148
        Height = 14
        Caption = 'TOPLAMLAR VE SONU�LAR'
        AlignToBand = False
      end
      object QRLabel1: TQRLabel
        Left = 200
        Top = 37
        Width = 115
        Height = 14
        Caption = 'Toplam Hasta Say�s� :'
        AlignToBand = False
      end
      object QRDBText22: TQRDBText
        Left = 321
        Top = 37
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'HSTSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRLabel24: TQRLabel
        Left = 192
        Top = 55
        Width = 123
        Height = 14
        Caption = 'Toplam Re�ete Say�s� :'
        AlignToBand = False
      end
      object QRDBText23: TQRDBText
        Left = 321
        Top = 56
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'RECSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object PanelTAB: TPanel
    Left = 0
    Top = 38
    Width = 619
    Height = 371
    Color = clSilver
    TabOrder = 5
    object Label3: TLabel
      Left = 0
      Top = 295
      Width = 482
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Genel Toplam'
      Color = clBlue
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label1: TLabel
      Left = 0
      Top = 72
      Width = 615
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Doktor Tablosu'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label4: TLabel
      Left = 0
      Top = 201
      Width = 482
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Tabloda ��aretli Doktorun Yazd��� �la�lar ve Detaylar�'
      Color = clNavy
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 85
      Width = 616
      Height = 115
      DataSource = DataSource1
      TabOrder = 3
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BtnHSTARA: TBitBtn
      Left = 491
      Top = 205
      Width = 117
      Height = 25
      Caption = '&Doktor Arama'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BtnHSTARAClick
    end
    object DBGrid3: TDBGrid
      Left = 0
      Top = 309
      Width = 569
      Height = 59
      DataSource = DataSTop
      TabOrder = 7
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object DBGrid2: TDBGrid
      Left = 0
      Top = 215
      Width = 483
      Height = 80
      DataSource = DataSource2
      TabOrder = 6
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BitBtn3: TBitBtn
      Left = 491
      Top = 280
      Width = 117
      Height = 25
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      Kind = bkClose
    end
    object BtnGRAFCIZ: TBitBtn
      Left = 544
      Top = 9
      Width = 71
      Height = 24
      Caption = '&Grafi�i �iz'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BtnGRAFCIZClick
    end
    object BtnTAB: TBitBtn
      Left = 544
      Top = 43
      Width = 71
      Height = 25
      Caption = '&Tabloyu Yaz'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BtnTABClick
    end
    object RadioGrafik: TRadioGroup
      Left = 0
      Top = 1
      Width = 542
      Height = 71
      Caption = '�izilec&ek Grafik'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Doktor Ad� �la� Kutu Miktar� veTutar�'
        'Doktor �la�lar�n�n G�nl�k Tutar K.Miktar�'
        'Doktor �la�lar�n�n  Ayl�k Tutar ve Miktar'
        'Doktor �la�lar�n�n Y�ll�k Tutar K.Miktar�'
        '��aretli Doktorun �la� Ad� ve Miktar veTutar�'
        '��aretli Doktorun G�nl�k �la� Miktar� ve Tutar�'
        '��aretli Doktorun Ayl�k �la� Miktar� ve  Tutar�'
        '��aretli Doktorun Y�ll�k �la� Miktar� ve Tutar�')
      TabOrder = 0
    end
    object BtnDRFIRMA: TBitBtn
      Left = 491
      Top = 243
      Width = 117
      Height = 25
      Caption = '��aretli Dr. ve &Firma '
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = BtnDRFIRMAClick
    end
    object BitBtn5: TBitBtn
      Left = 573
      Top = 315
      Width = 43
      Height = 48
      HelpContext = 897
      TabOrder = 9
      Kind = bkHelp
      Layout = blGlyphBottom
    end
  end
  object BitBtn4: TBitBtn
    Left = 491
    Top = 318
    Width = 117
    Height = 25
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    Kind = bkClose
  end
  object QAna: TQuery
    BeforeOpen = QAnaBeforeOpen
    AfterClose = QAnaAfterClose
    OnCalcFields = QAnaCalcFields
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.DRKOD,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,'
      'COUNT(DISTINCT SATISNO) AS RECSAY,'
      'COUNT(DISTINCT ISTATIKR.HASTANO) AS HSTSAY,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'GROUP BY ISTATIKR.DRKOD'
      'ORDER BY TOPMIK DESC')
    Left = 24
    Top = 136
    object QAnaSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.No'
      DisplayWidth = 3
      FieldName = 'SNO'
    end
    object QAnaDRKOD: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Doktor Ad�'
      DisplayWidth = 25
      FieldName = 'DRKOD'
      OnGetText = QAnaDRKODGetText
    end
    object QAnaRECSAY: TIntegerField
      DisplayLabel = 'Re�.Adedi'
      FieldName = 'RECSAY'
    end
    object QAnaHSTSAY: TIntegerField
      DisplayLabel = 'Hst.Adedi'
      FieldName = 'HSTSAY'
    end
    object QAnaFARKILAC: TIntegerField
      DisplayLabel = 'F.�la� Top.'
      DisplayWidth = 5
      FieldName = 'FARKILAC'
    end
    object QAnaTOPMIK: TFloatField
      DisplayLabel = 'T.�.Kutu Mik'
      DisplayWidth = 4
      FieldName = 'TOPMIK'
    end
    object QAnaTOPTUT: TCurrencyField
      DisplayLabel = 'T.Br�t �la� Tutar�'
      DisplayWidth = 18
      FieldName = 'TOPTUT'
    end
    object QAnaORTMIK: TFloatField
      DisplayLabel = 'Ort.K.Mik'
      DisplayWidth = 4
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object DataSource1: TDataSource
    DataSet = QAna
    Left = 53
    Top = 141
  end
  object QIlacAyr: TQuery
    BeforeOpen = QIlacAyrBeforeOpen
    BeforeClose = QIlacAyrBeforeClose
    OnCalcFields = QIlacAyrCalcFields
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000544524B4F4400030400000000000100}
    SQL.Strings = (
      'SELECT'
      'SATIS.ILACNO,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.DRKOD=:DRKOD'
      'GROUP BY SATIS.ILACNO'
      'ORDER BY TOPMIK DESC')
    Left = 5
    Top = 257
    object QIlacAyrSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.N.'
      DisplayWidth = 4
      FieldName = 'SNO'
    end
    object QIlacAyrILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'ila� Ad�'
      DisplayWidth = 36
      FieldName = 'ILACNO'
      OnGetText = QIlacAyrILACNOGetText
    end
    object QIlacAyrTOPMIK: TFloatField
      DisplayLabel = 'T.Mik'
      DisplayWidth = 6
      FieldName = 'TOPMIK'
    end
    object QIlacAyrTUTAR: TCurrencyField
      DisplayLabel = 'Br�t Tutar'
      DisplayWidth = 18
      FieldName = 'TUTAR'
    end
    object QIlacAyrORTMIK: TFloatField
      DisplayLabel = 'Ort.Mik'
      DisplayWidth = 6
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object DataSource2: TDataSource
    DataSet = QIlacAyr
    Left = 38
    Top = 261
  end
  object QToplam: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'COUNT(DISTINCT ISTATIKR.DRKOD)  AS DRSAY,'
      'COUNT(DISTINCT ISTATIKR.HASTANO)  AS HSTSAY,'
      'COUNT(DISTINCT SATISNO) AS RECSAY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO')
    Left = 8
    Top = 371
    object QToplamDRSAY: TIntegerField
      DisplayLabel = 'T.Dr.Say�s�'
      FieldName = 'DRSAY'
    end
    object QToplamHSTSAY: TIntegerField
      DisplayLabel = 'T.Hasta'
      DisplayWidth = 6
      FieldName = 'HSTSAY'
    end
    object QToplamRECSAY: TIntegerField
      DisplayLabel = 'T.Re�.Adedi'
      FieldName = 'RECSAY'
    end
    object QToplamTOPMIK: TFloatField
      DisplayLabel = 'T.Kutu Mik.'
      DisplayWidth = 10
      FieldName = 'TOPMIK'
    end
    object QToplamTOPTUT: TCurrencyField
      DisplayLabel = 'Toplam Br�t �la� Tutar�'
      DisplayWidth = 23
      FieldName = 'TOPTUT'
    end
    object QToplamFARKILAC: TIntegerField
      DisplayLabel = 'T.Farkl� �l�.'
      DisplayWidth = 10
      FieldName = 'FARKILAC'
    end
    object QToplamORTMIK: TFloatField
      DisplayLabel = 'Ort.Kutu Mik'
      DisplayWidth = 10
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object UrAd: TTable
    DatabaseName = 'ECZ'
    TableName = 'Urun.DB'
    Left = 17
    Top = 187
    object UrAdILACNO: TAutoIncField
      Alignment = taLeftJustify
      FieldName = 'ILACNO'
    end
    object UrAdILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
    object UrAdILACAD: TStringField
      FieldName = 'ILACAD'
      Size = 36
    end
  end
  object DRAd: TTable
    DatabaseName = 'ECZ'
    TableName = 'DR.DB'
    Left = 137
    Top = 275
    object DRAdDRKOD: TAutoIncField
      FieldName = 'DRKOD'
    end
    object DRAdDRAD: TStringField
      FieldName = 'DRAD'
      Size = 18
    end
    object DRAdDRSOYAD: TStringField
      FieldName = 'DRSOYAD'
      Size = 18
    end
  end
  object DataSTop: TDataSource
    DataSet = QToplam
    Left = 48
    Top = 375
  end
  object QGunluk: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.ALTARIH,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(ISTATIKR.SATISNO=SATIS.SATISNO)'
      'GROUP BY ISTATIKR.ALTARIH'
      'ORDER BY TOPMIK DESC')
    Left = 445
    Top = 9
    object QGunlukALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QGunlukTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QIstaRec: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      010002000662617354726800090400C11F0B00000106736F6E54726800090400
      9B220B000001}
    SQL.Strings = (
      'SELECT'
      'RECETE.HASTANO,'
      'RECETE.DRKOD,'
      'RECETE.SATISNO,'
      'RECETE.KURUMKOD,'
      'RECETE.ALTARIH,'
      'EXTRACT(DAY FROM RECETE.ALTARIH) AS GUN,'
      'EXTRACT(MONTH FROM RECETE.ALTARIH) AS AY,'
      'EXTRACT(YEAR FROM RECETE.ALTARIH) AS YIL,'
      'RECETE.NET'
      'FROM RECETE'
      'WHERE '
      '(RECETE.ALTARIH>=:basTrh) AND'
      '(RECETE.ALTARIH<=:sonTrh)'
      'ORDER BY RECETE.ALTARIH')
    Left = 128
    Top = 8
    object QIstaRecHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object QIstaRecDRKOD: TIntegerField
      FieldName = 'DRKOD'
    end
    object QIstaRecSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
    object QIstaRecKURUMKOD: TStringField
      FieldName = 'KURUMKOD'
      Size = 11
    end
    object QIstaRecALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QIstaRecGUN: TFloatField
      FieldName = 'GUN'
    end
    object QIstaRecAY: TFloatField
      FieldName = 'AY'
    end
    object QIstaRecYIL: TFloatField
      FieldName = 'YIL'
    end
    object QIstaRecNET: TCurrencyField
      FieldName = 'NET'
    end
  end
  object BatchMove1: TBatchMove
    Destination = istRecTab
    Mode = batCopy
    Source = QIstaRec
    Left = 160
    Top = 8
  end
  object istRecTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'istatikR.db'
    Left = 192
    Top = 8
  end
  object QAylik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,ISTATIKR.AY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(SATIS.SATISNO=ISTATIKR.SATISNO)'
      'GROUP BY ISTATIKR.YIL,ISTATIKR.AY'
      'ORDER BY ISTATIKR.NETTUT DESC')
    Left = 357
    Top = 49
    object QAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QAylikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QYillik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(SATIS.SATISNO=ISTATIKR.SATISNO)'
      'GROUP BY ISTATIKR.YIL'
      'ORDER BY ISTATIKR.NETTUT DESC')
    Left = 381
    Top = 17
    object QYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QYillikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QhstIMikAylik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000544524B4F4400030400000000000000}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,ISTATIKR.AY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.DRKOD=:DRKOD'
      'GROUP BY ISTATIKR.YIL,ISTATIKR.AY'
      'ORDER BY TOPMIK DESC')
    Left = 485
    Top = 41
    object QhstIMikAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QhstIMikAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
      DisplayFormat = '#.# A'
    end
    object QhstIMikAylikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 525
    Top = 65508
  end
  object QhstIMikYillik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000544524B4F4400030400000000000000}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.DRKOD=:DRKOD'
      'GROUP BY ISTATIKR.YIL'
      'ORDER BY TOPMIK DESC')
    Left = 448
    Top = 73
    object QhstIMikYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikYillikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object DS_QYillik: TDataSource
    DataSet = QYillik
    Left = 352
    Top = 16
  end
  object DS_QAylik: TDataSource
    DataSet = QAylik
    Left = 384
    Top = 48
  end
  object DataSource5: TDataSource
    DataSet = QGunluk
    Left = 480
    Top = 8
  end
  object DS_QhstIMikAylik: TDataSource
    DataSet = QhstIMikAylik
    Left = 464
    Top = 40
  end
  object DataSource7: TDataSource
    DataSet = QhstIMikYillik
    Left = 472
    Top = 72
  end
  object QuickReport1: TQuickReport
    DataSource = DataSource1
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    ReportTitle = 'Doktor Tablosu'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 216
    Top = 160
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Left = 453
    Top = 208
  end
  object QhstIMikGunluk: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000544524B4F4400030400000000000000}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.ALTARIH,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.DRKOD=:DRKOD'
      'GROUP BY ISTATIKR.ALTARIH'
      'ORDER BY TOPMIK DESC')
    Left = 509
    Top = 25
    object QhstIMikGunlukALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QhstIMikGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikGunlukTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object QRDetailLink1: TQRDetailLink
    DataSource = DataSource2
    DetailBand = QRSubDetail
    FooterBand = QRGroupFooter
    HeaderBand = QRGroupHeader
    Master = QuickReport1
    PrintBefore = False
    Left = 294
    Top = 200
  end
end